home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / goodcs.for < prev    next >
Text File  |  1991-04-13  |  623b  |  30 lines
  1.         REAL FUNCTION GOODCS(APPROX)
  2.  
  3.         IMPLICIT NONE
  4.         REAL YCELL,SIZE,APPROX
  5.         INTEGER N
  6.         INCLUDE DIGLIB$KOM:GCDCHR.PRM
  7.         INCLUDE DIGLIB$KOM:GCDPRM.PRM
  8.     DATA YCELL /8.0/
  9. C
  10. C       CALCULATE MINIMUM VIRTUAL COORD. SIZE OF CHARS THAT ARE READALBE WITH
  11. C        THE DEVICES RESOLUTION.
  12. C
  13.         SIZE = (YCELL/YRES)/YS
  14. C
  15. C       NOW SCALE UP THIS MINIMUM SIZE SO THAT CHARACTERS ARE ABOUT
  16. C        THE SIZE DESIRED.
  17. C
  18.         N = APPROX/SIZE + 0.25
  19. C
  20. C       MUST BE ATLEAST N=1
  21. C
  22.         IF (N .EQ. 0) N=1
  23. C
  24. C       NOW RETURN OUR ANSWER
  25. C
  26.         GOODCS = N*SIZE
  27.         RETURN
  28.         END
  29.  
  30.